home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / export.dir / 00008.ls < prev    next >
Encoding:
Text File  |  1995-07-11  |  407 b   |  16 lines
  1. on mouseDown
  2.   global rValue
  3.   if pushButton() then
  4.     if selection() then
  5.       set the text of field "selText" to the selection
  6.       printText(field "selText")
  7.       set rValue to "PrintSel"
  8.       tell the stage
  9.         forgetExp()
  10.       end tell
  11.     else
  12.       alert("There is no text selected.  Please select an area to print or click Print All to print the entire text box.")
  13.     end if
  14.   end if
  15. end
  16.